Private Sub UserForm_Initialize()
    
    Dim  As String
    
     = ThisWorkbook.Path
    
    With iml.ListImages

        .Add Key:="Image1", Picture:=LoadPicture(Filename:= & "\tag-top.jpg")
        .Add Key:="Image2", Picture:=LoadPicture(Filename:= & "\tag-sub.jpg")

    End With

    With tvw

        .Indentation = 14
        .BorderStyle = ccFixedSingle
        .LineStyle = tvwTreeLines

        Set .ImageList = iml

    End With

End Sub